unit uLBMPPackage;

interface

uses
  SysUtils, Classes, uDZPersistent;

type
  TLBMPRequestType = (lbmpGetAreaCode, lbmpGetCoord, lbmpRegister,
    lbmpUnRegister, lbmpGetLBSState, lbmpConfirmRegister);

  TLBMPLocateType = (lbmpCityLocate, lbmpCoordLocate);

  TLBMPRequestPackage = class(TDzPersistent)

  end;

  TLBMPResponsePackage = class(TDzPersistent)

  end;

  TLBMPREQLocate = class(TLBMPRequestPackage)
  private
    fPhones: TStrings;
    fLocateType: TLBMPLocateType;
    procedure SetPhones(const Value: TStrings);
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property LocateType: TLBMPLocateType read fLocateType write fLocateType;
    property Phones: TStrings read fPhones write SetPhones;   
  end;

  TLBMPRESLocate = class(TLBMPResponsePackage)
  private
    fLocateType: TLBMPLocateType;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property LocateType: TLBMPLocateType read fLocateType write fLocateType;    
  end;

implementation

{ TLBMPREQLocate }

constructor TLBMPREQLocate.Create;
begin
  inherited;
  fPhones := TStringList.Create;
end;

destructor TLBMPREQLocate.Destroy;
begin
  if fPhones <> nil then fPhones.Free;
  inherited;
end;

procedure TLBMPREQLocate.SetPhones(const Value: TStrings);
begin
  fPhones := Value;
end;

{ TLBMPRESLocate }

constructor TLBMPRESLocate.Create;
begin
  inherited;

end;

destructor TLBMPRESLocate.Destroy;
begin

  inherited;
end;

end.
